home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / mixin-madness / window-mixins / video-wm.lisp
MacBinary  |  1991-10-25  |  5.6 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Fri Oct 25 10:29:22 1991, modified Fri Oct 25 10:29:22 1991, creator Common Lisp 2, type ASCII, 5048 bytes "video-wm.lisp" , at 0x1438 416 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 76 69 64 65 6f 2d | 77 6d 2e 6c 69 73 70 00 |..video-|wm.lisp.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 13 b8 00 | 00 01 a0 a5 2d da c2 a5 |........|....-...|
|00000060| 2d da c2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |-.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 66 78 00 00 |........|....fx..|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 76 69 64 65 |).(provi|de :vide|
|000000a0| 6f 2d 77 6d 29 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |o-wm).;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 20 |;;;;;;;;|;;;;.;; |
|000000f0| 76 69 64 65 6f 2d 77 6d | 2e 6c 69 73 70 0d 3b 3b |video-wm|.lisp.;;|
|00000100| 0d 3b 3b 20 43 6f 70 79 | 72 69 67 68 74 20 a9 20 |.;; Copy|right . |
|00000110| 31 39 39 31 20 4e 6f 72 | 74 68 77 65 73 74 65 72 |1991 Nor|thwester|
|00000120| 6e 20 55 6e 69 76 65 72 | 73 69 74 79 20 49 6e 73 |n Univer|sity Ins|
|00000130| 74 69 74 75 74 65 20 66 | 6f 72 20 74 68 65 20 4c |titute f|or the L|
|00000140| 65 61 72 6e 69 6e 67 20 | 53 63 69 65 6e 63 65 73 |earning |Sciences|
|00000150| 0d 3b 3b 20 41 6c 6c 20 | 52 69 67 68 74 73 20 52 |.;; All |Rights R|
|00000160| 65 73 65 72 76 65 64 0d | 3b 3b 0d 3b 3b 20 61 75 |eserved.|;;.;; au|
|00000170| 74 68 6f 72 3a 20 4d 69 | 63 68 61 65 6c 20 53 2e |thor: Mi|chael S.|
|00000180| 20 45 6e 67 62 65 72 0d | 3b 3b 0d 3b 3b 20 6d 69 | Engber.|;;.;; mi|
|00000190| 78 69 6e 20 66 6f 72 20 | 6d 61 6b 69 6e 67 20 77 |xin for |making w|
|000001a0| 69 6e 64 6f 77 73 20 76 | 69 64 65 6f 20 61 77 61 |indows v|ideo awa|
|000001b0| 72 65 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |re.;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 28 6f 6f 75 2d |;;;;;;;;|;..(oou-|
|00000200| 64 65 70 65 6e 64 65 6e | 63 69 65 73 0d 20 3a 76 |dependen|cies. :v|
|00000210| 69 64 65 6f 2d 64 69 67 | 69 74 69 7a 65 72 2d 73 |ideo-dig|itizer-s|
|00000220| 76 6d 0d 20 3a 77 69 6e | 64 6f 77 2d 63 65 0d 20 |vm. :win|dow-ce. |
|00000230| 29 0d 0d 28 65 78 70 6f | 72 74 20 27 28 76 69 64 |)..(expo|rt '(vid|
|00000240| 65 6f 2d 77 6d 20 76 69 | 64 65 6f 2d 77 69 6e 64 |eo-wm vi|deo-wind|
|00000250| 6f 77 20 76 69 64 65 6f | 2d 64 69 61 6c 6f 67 0d |ow video|-dialog.|
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 29 29 0d 0d 3b |        |   ))..;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002b0| 3b 3b 3b 3b 3b 0d 23 7c | 0d 0d 53 6f 6d 65 20 63 |;;;;;.#||..Some c|
|000002c0| 6f 6d 6d 6f 6e 20 70 72 | 6f 62 6c 65 6d 73 20 75 |ommon pr|oblems u|
|000002d0| 73 69 6e 67 20 76 69 64 | 65 6f 20 69 6e 20 77 69 |sing vid|eo in wi|
|000002e0| 6e 64 6f 77 73 20 61 72 | 65 3a 0d 20 2d 20 64 69 |ndows ar|e:. - di|
|000002f0| 67 69 74 69 7a 65 72 73 | 20 6f 6e 6c 79 20 73 75 |gitizers| only su|
|00000300| 70 70 6f 72 74 20 6f 6e | 65 20 73 63 72 65 65 6e |pport on|e screen|
|00000310| 20 28 47 44 65 76 69 63 | 65 29 2c 20 73 6f 20 79 | (GDevic|e), so y|
|00000320| 6f 75 20 6e 65 65 64 20 | 74 6f 20 6d 61 6b 65 20 |ou need |to make |
|00000330| 73 75 72 65 0d 20 20 20 | 79 6f 75 72 20 77 69 6e |sure.   |your win|
|00000340| 64 6f 77 20 69 73 20 28 | 61 6e 64 20 73 74 61 79 |dow is (|and stay|
|00000350| 73 29 20 6c 6f 63 61 74 | 65 64 20 61 63 63 6f 72 |s) locat|ed accor|
|00000360| 64 69 6e 67 6c 79 2e 0d | 20 2d 20 64 69 67 69 74 |dingly..| - digit|
|00000370| 69 7a 65 72 73 20 61 72 | 65 6e 27 74 20 57 69 6e |izers ar|en't Win|
|00000380| 64 6f 77 20 4d 61 6e 61 | 67 65 72 20 61 77 61 72 |dow Mana|ger awar|
|00000390| 65 2e 20 54 68 65 79 20 | 68 61 76 65 20 74 6f 20 |e. They |have to |
|000003a0| 62 65 20 6e 6f 74 69 66 | 69 65 64 20 77 68 65 6e |be notif|ied when|
|000003b0| 0d 20 20 20 77 69 6e 64 | 6f 77 73 20 6d 6f 76 65 |.   wind|ows move|
|000003c0| 2c 20 67 65 74 20 63 6f | 76 65 72 65 64 20 75 70 |, get co|vered up|
|000003d0| 2c 20 2e 2e 2e 20 46 6f | 72 20 65 78 61 6d 70 6c |, ... Fo|r exampl|
|000003e0| 65 2c 20 69 66 20 79 6f | 75 20 6d 6f 76 65 20 61 |e, if yo|u move a|
|000003f0| 20 77 69 6e 64 6f 77 0d | 20 20 20 64 6f 69 6e 67 | window.|   doing|
|00000400| 20 6c 69 76 65 20 76 69 | 64 65 6f 2c 20 74 68 65 | live vi|deo, the|
|00000410| 20 64 69 67 69 74 69 7a | 65 64 20 69 6d 61 67 65 | digitiz|ed image|
|00000420| 20 67 65 74 73 20 6c 65 | 66 74 20 62 65 68 69 6e | gets le|ft behin|
|00000430| 64 2e 0d 0d 54 68 69 73 | 20 6d 69 78 69 6e 20 77 |d...This| mixin w|
|00000440| 6f 72 6b 73 20 77 69 74 | 68 20 74 68 65 20 64 69 |orks wit|h the di|
|00000450| 67 69 74 69 7a 65 72 2d | 73 76 6d 20 61 6e 64 20 |gitizer-|svm and |
|00000460| 76 69 64 65 6f 2d 73 76 | 6d 20 6d 69 78 69 6e 20 |video-sv|m mixin |
|00000470| 63 6c 61 73 73 65 73 2e | 20 56 69 65 77 73 0d 77 |classes.| Views.w|
|00000480| 68 69 63 68 20 69 6e 68 | 65 72 69 74 20 66 72 6f |hich inh|erit fro|
|00000490| 6d 20 64 69 67 69 74 69 | 7a 65 72 2d 73 76 6d 20 |m digiti|zer-svm |
|000004a0| 6f 72 20 76 69 64 65 6f | 2d 73 76 6d 20 61 72 65 |or video|-svm are|
|000004b0| 20 6b 65 70 74 20 74 72 | 61 63 6b 20 6f 66 20 61 | kept tr|ack of a|
|000004c0| 73 20 74 68 65 79 20 61 | 64 64 2f 0d 72 65 6d 6f |s they a|dd/.remo|
|000004d0| 76 65 20 74 68 65 6d 73 | 65 6c 66 20 66 72 6f 6d |ve thems|elf from|
|000004e0| 20 76 69 64 65 6f 2d 77 | 6d 27 73 2e 0d 0d 53 61 | video-w|m's...Sa|
|000004f0| 6e 69 74 79 2c 20 63 68 | 65 63 6b 73 20 61 72 65 |nity, ch|ecks are|
|00000500| 20 70 65 72 66 6f 72 6d | 65 64 20 74 6f 20 6d 61 | perform|ed to ma|
|00000510| 6b 65 20 73 75 72 65 20 | 61 6c 6c 20 74 68 65 20 |ke sure |all the |
|00000520| 64 69 67 69 74 69 7a 65 | 72 20 76 69 65 77 73 20 |digitize|r views |
|00000530| 75 73 65 20 74 68 65 0d | 73 61 6d 65 20 47 44 65 |use the.|same GDe|
|00000540| 76 69 63 65 20 61 6e 64 | 20 74 68 61 74 20 74 68 |vice and| that th|
|00000550| 65 20 76 69 65 77 73 20 | 61 72 65 20 6c 6f 63 61 |e views |are loca|
|00000560| 74 65 64 20 6f 6e 20 74 | 68 65 69 72 20 47 44 65 |ted on t|heir GDe|
|00000570| 76 69 63 65 2e 0d 0d 4f | 6e 65 20 69 73 73 75 65 |vice...O|ne issue|
|00000580| 20 74 68 61 74 20 69 73 | 20 6e 6f 74 20 79 65 74 | that is| not yet|
|00000590| 20 61 64 64 72 65 73 73 | 65 64 20 69 73 20 6f 76 | address|ed is ov|
|000005a0| 65 72 6c 61 70 70 69 6e | 67 20 77 69 6e 64 6f 77 |erlappin|g window|
|000005b0| 73 2e 20 54 68 69 73 20 | 69 73 20 73 6f 6d 65 74 |s. This |is somet|
|000005c0| 68 69 6e 67 0d 74 6f 20 | 61 64 64 72 65 73 73 20 |hing.to |address |
|000005d0| 69 6e 20 74 68 65 20 66 | 75 74 75 72 65 20 28 73 |in the f|uture (s|
|000005e0| 75 67 67 65 73 74 69 6f | 6e 20 77 65 6c 63 6f 6d |uggestio|n welcom|
|000005f0| 65 29 2e 20 53 6f 6d 65 | 20 63 6f 6e 73 69 64 65 |e). Some| conside|
|00000600| 72 61 74 69 6f 6e 73 3a | 0d 20 2d 20 61 20 72 65 |rations:|. - a re|
|00000610| 73 74 72 69 63 74 69 76 | 65 20 73 6f 6c 6e 20 69 |strictiv|e soln i|
|00000620| 73 20 74 6f 20 73 74 6f | 70 20 64 69 67 69 74 69 |s to sto|p digiti|
|00000630| 7a 69 6e 67 20 77 68 65 | 6e 20 61 20 77 69 6e 64 |zing whe|n a wind|
|00000640| 6f 77 20 69 73 20 64 65 | 2d 61 63 74 69 76 61 74 |ow is de|-activat|
|00000650| 65 64 0d 20 2d 20 64 6f | 69 6e 67 20 73 69 67 6e |ed. - do|ing sign|
|00000660| 69 66 69 63 61 6e 74 6c | 79 20 62 65 74 74 65 72 |ificantl|y better|
|00000670| 20 72 65 71 75 69 72 65 | 73 3a 0d 20 20 20 20 20 | require|s:.     |
|00000680| 64 65 74 65 63 74 69 6e | 67 20 77 68 65 6e 20 73 |detectin|g when s|
|00000690| 6f 6d 65 6f 6e 65 20 6f | 76 65 72 6c 61 70 73 20 |omeone o|verlaps |
|000006a0| 61 20 77 69 6e 64 6f 77 | 20 2d 20 6e 6f 74 20 74 |a window| - not t|
|000006b0| 72 69 76 69 61 6c 0d 20 | 20 20 20 20 64 69 67 69 |rivial. |    digi|
|000006c0| 74 69 7a 65 72 73 20 74 | 68 61 74 20 73 75 70 70 |tizers t|hat supp|
|000006d0| 6f 72 74 20 63 6c 69 70 | 70 69 6e 67 20 2d 20 6e |ort clip|ping - n|
|000006e0| 6f 74 20 61 6c 6c 20 64 | 6f 0d 0d 0d 4d 65 74 68 |ot all d|o...Meth|
|000006f0| 6f 64 73 20 6f 66 20 49 | 6e 74 65 72 65 73 74 20 |ods of I|nterest |
|00000700| 2d 20 63 68 61 6e 67 65 | 73 20 74 6f 20 65 78 69 |- change|s to exi|
|00000710| 73 74 69 6e 67 20 6d 65 | 74 68 6f 64 73 0d 0d 20 |sting me|thods.. |
|00000720| 69 6e 69 74 69 61 6c 69 | 7a 65 2d 69 6e 73 74 61 |initiali|ze-insta|
|00000730| 6e 63 65 20 76 69 64 65 | 6f 2d 77 6d 20 26 72 65 |nce vide|o-wm &re|
|00000740| 73 74 20 69 6e 69 74 61 | 72 67 73 0d 20 20 49 66 |st inita|rgs.  If|
|00000750| 20 6e 6f 20 3a 76 69 65 | 77 2d 70 6f 73 69 74 69 | no :vie|w-positi|
|00000760| 6f 6e 20 69 73 20 73 70 | 65 63 69 66 69 65 64 20 |on is sp|ecified |
|00000770| 61 6e 64 20 74 68 65 20 | 77 69 6e 64 6f 77 20 68 |and the |window h|
|00000780| 61 73 20 73 6f 6d 65 20 | 64 69 67 69 74 69 7a 65 |as some |digitize|
|00000790| 72 0d 20 20 73 75 62 76 | 69 65 77 73 2c 20 74 68 |r.  subv|iews, th|
|000007a0| 65 6e 20 74 68 65 20 77 | 69 6e 64 6f 77 20 77 69 |en the w|indow wi|
|000007b0| 6c 6c 20 62 65 20 6d 6f | 76 65 64 20 6f 6e 74 6f |ll be mo|ved onto|
|000007c0| 20 74 68 65 20 61 70 70 | 72 6f 70 74 72 69 61 74 | the app|roptriat|
|000007d0| 65 20 73 63 72 65 65 6e | 2e 0d 0d 20 77 69 6e 64 |e screen|... wind|
|000007e0| 6f 77 2d 64 72 61 67 2d | 72 65 63 74 20 76 69 64 |ow-drag-|rect vid|
|000007f0| 65 6f 2d 77 6d 0d 20 20 | 54 68 65 20 64 69 67 69 |eo-wm.  |The digi|
|00000800| 74 69 7a 65 72 73 27 20 | 47 44 65 76 69 63 65 20 |tizers' |GDevice |
|00000810| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 75 73 65 |rectangl|e is use|
|00000820| 64 20 61 73 20 74 68 65 | 20 64 72 61 67 67 69 6e |d as the| draggin|
|00000830| 67 20 72 65 63 74 61 6e | 67 6c 65 2e 0d 0d 20 0d |g rectan|gle... .|
|00000840| 7c 23 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b ||#.;;;;;|;;;;;;;;|
|00000850| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000860| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000870| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000880| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 28 64 65 66 63 |;;;;;;;;|;..(defc|
|00000890| 6c 61 73 73 20 76 69 64 | 65 6f 2d 77 6d 20 28 29 |lass vid|eo-wm ()|
|000008a0| 0d 20 20 28 28 64 69 67 | 69 74 69 7a 65 72 2d 73 |.  ((dig|itizer-s|
|000008b0| 75 62 76 69 65 77 73 20 | 3a 69 6e 69 74 66 6f 72 |ubviews |:initfor|
|000008c0| 6d 20 6e 69 6c 29 0d 20 | 20 20 29 0d 29 0d 0d 28 |m nil). |  ).)..(|
|000008d0| 64 65 66 63 6c 61 73 73 | 20 76 69 64 65 6f 2d 77 |defclass| video-w|
|000008e0| 69 6e 64 6f 77 20 28 76 | 69 64 65 6f 2d 77 6d 20 |indow (v|ideo-wm |
|000008f0| 77 69 6e 64 6f 77 29 20 | 28 29 29 0d 28 64 65 66 |window) |()).(def|
|00000900| 63 6c 61 73 73 20 76 69 | 64 65 6f 2d 64 69 61 6c |class vi|deo-dial|
|00000910| 6f 67 20 28 76 69 64 65 | 6f 2d 77 6d 20 64 69 61 |og (vide|o-wm dia|
|00000920| 6c 6f 67 29 20 28 29 29 | 0d 0d 28 64 65 66 6d 65 |log) ())|..(defme|
|00000930| 74 68 6f 64 20 69 6e 69 | 74 69 61 6c 69 7a 65 2d |thod ini|tialize-|
|00000940| 69 6e 73 74 61 6e 63 65 | 20 3a 61 66 74 65 72 20 |instance| :after |
|00000950| 28 28 77 20 76 69 64 65 | 6f 2d 77 6d 29 20 26 72 |((w vide|o-wm) &r|
|00000960| 65 73 74 20 69 6e 69 74 | 61 72 67 73 20 26 6b 65 |est init|args &ke|
|00000970| 79 20 76 69 65 77 2d 70 | 6f 73 69 74 69 6f 6e 29 |y view-p|osition)|
|00000980| 0d 20 20 28 64 65 63 6c | 61 72 65 20 28 69 67 6e |.  (decl|are (ign|
|00000990| 6f 72 65 20 69 6e 69 74 | 61 72 67 73 29 29 0d 20 |ore init|args)). |
|000009a0| 20 28 77 68 65 6e 20 28 | 61 6e 64 20 28 76 77 2d | (when (|and (vw-|
|000009b0| 47 44 65 76 69 63 65 20 | 77 29 20 28 6e 75 6c 6c |GDevice |w) (null|
|000009c0| 20 76 69 65 77 2d 70 6f | 73 69 74 69 6f 6e 29 29 | view-po|sition))|
|000009d0| 0d 20 20 20 20 28 77 69 | 6e 64 6f 77 2d 63 65 6e |.    (wi|ndow-cen|
|000009e0| 74 65 72 2d 6f 6e 2d 73 | 63 72 65 65 6e 20 77 20 |ter-on-s|creen w |
|000009f0| 3a 73 70 65 63 69 66 69 | 65 64 2d 47 44 20 3a 47 |:specifi|ed-GD :G|
|00000a00| 44 65 76 69 63 65 20 28 | 76 77 2d 47 44 65 76 69 |Device (|vw-GDevi|
|00000a10| 63 65 20 77 29 29 29 0d | 20 20 28 76 77 2d 63 68 |ce w))).|  (vw-ch|
|00000a20| 65 63 6b 2d 47 44 65 76 | 69 63 65 73 20 77 29 29 |eck-GDev|ices w))|
|00000a30| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 61 64 64 |..(defme|thod add|
|00000a40| 2d 73 75 62 76 69 65 77 | 73 20 3a 61 66 74 65 72 |-subview|s :after|
|00000a50| 20 28 28 77 20 76 69 64 | 65 6f 2d 77 6d 29 20 26 | ((w vid|eo-wm) &|
|00000a60| 72 65 73 74 20 73 75 62 | 76 69 65 77 73 29 0d 20 |rest sub|views). |
|00000a70| 20 28 64 65 63 6c 61 72 | 65 20 28 69 67 6e 6f 72 | (declar|e (ignor|
|00000a80| 65 20 73 75 62 76 69 65 | 77 73 29 29 0d 20 20 28 |e subvie|ws)).  (|
|00000a90| 76 77 2d 63 68 65 63 6b | 2d 47 44 65 76 69 63 65 |vw-check|-GDevice|
|00000aa0| 73 20 77 29 29 0d 0d 28 | 64 65 66 6d 65 74 68 6f |s w))..(|defmetho|
|00000ab0| 64 20 77 69 6e 64 6f 77 | 2d 64 72 61 67 2d 72 65 |d window|-drag-re|
|00000ac0| 63 74 20 28 28 77 20 76 | 69 64 65 6f 2d 77 6d 29 |ct ((w v|ideo-wm)|
|00000ad0| 29 0d 20 20 28 77 69 74 | 68 2d 64 65 72 65 66 65 |).  (wit|h-derefe|
|00000ae0| 72 65 6e 63 65 64 2d 68 | 61 6e 64 6c 65 73 20 28 |renced-h|andles (|
|00000af0| 28 67 64 5f 70 20 28 76 | 77 2d 47 44 65 76 69 63 |(gd_p (v|w-GDevic|
|00000b00| 65 20 77 29 29 29 0d 20 | 20 20 20 28 70 72 65 66 |e w))). |   (pref|
|00000b10| 20 67 64 5f 70 20 3a 47 | 44 65 76 69 63 65 2e 67 | gd_p :G|Device.g|
|00000b20| 64 52 65 63 74 29 29 29 | 0d 0d 28 64 65 66 6d 65 |dRect)))|..(defme|
|00000b30| 74 68 6f 64 20 77 69 6e | 64 6f 77 2d 63 6c 6f 73 |thod win|dow-clos|
|00000b40| 65 20 3a 62 65 66 6f 72 | 65 20 28 28 77 20 76 69 |e :befor|e ((w vi|
|00000b50| 64 65 6f 2d 77 6d 29 29 | 0d 20 20 28 76 77 2d 73 |deo-wm))|.  (vw-s|
|00000b60| 74 6f 70 2d 64 69 67 69 | 74 69 7a 69 6e 67 20 20 |top-digi|tizing  |
|00000b70| 77 20 28 76 77 2d 6f 6e | 2d 6c 69 73 74 20 77 29 |w (vw-on|-list w)|
|00000b80| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 73 |))..(def|method s|
|00000b90| 65 74 2d 76 69 65 77 2d | 70 6f 73 69 74 69 6f 6e |et-view-|position|
|00000ba0| 20 3a 61 72 6f 75 6e 64 | 20 28 28 77 20 76 69 64 | :around| ((w vid|
|00000bb0| 65 6f 2d 77 6d 29 20 68 | 20 26 6f 70 74 69 6f 6e |eo-wm) h| &option|
|00000bc0| 61 6c 20 76 29 0d 20 20 | 28 64 65 63 6c 61 72 65 |al v).  |(declare|
|00000bd0| 20 28 69 67 6e 6f 72 65 | 20 68 20 76 29 29 0d 20 | (ignore| h v)). |
|00000be0| 20 0d 20 20 28 66 6f 63 | 75 73 2d 76 69 65 77 20 | .  (foc|us-view |
|00000bf0| 77 29 20 3b 4d 43 4c 20 | 62 75 67 20 66 69 78 20 |w) ;MCL |bug fix |
|00000c00| 2d 20 73 65 65 20 6e 6f | 74 65 20 62 65 6c 6f 77 |- see no|te below|
|00000c10| 0d 0d 20 20 28 6c 65 74 | 20 28 28 6f 6e 2d 6c 69 |..  (let| ((on-li|
|00000c20| 73 74 20 28 76 77 2d 6f | 6e 2d 6c 69 73 74 20 77 |st (vw-o|n-list w|
|00000c30| 29 29 29 0d 20 20 20 20 | 28 70 72 6f 67 32 0d 20 |))).    |(prog2. |
|00000c40| 20 20 20 20 28 76 77 2d | 73 74 6f 70 2d 64 69 67 |    (vw-|stop-dig|
|00000c50| 69 74 69 7a 69 6e 67 20 | 20 77 20 6f 6e 2d 6c 69 |itizing | w on-li|
|00000c60| 73 74 29 0d 20 20 20 20 | 20 28 63 61 6c 6c 2d 6e |st).    | (call-n|
|00000c70| 65 78 74 2d 6d 65 74 68 | 6f 64 29 0d 20 20 20 20 |ext-meth|od).    |
|00000c80| 20 28 76 77 2d 73 74 61 | 72 74 2d 64 69 67 69 74 | (vw-sta|rt-digit|
|00000c90| 69 7a 69 6e 67 20 77 20 | 6f 6e 2d 6c 69 73 74 29 |izing w |on-list)|
|00000ca0| 29 29 29 0d 0d 28 64 65 | 66 6d 65 74 68 6f 64 20 |)))..(de|fmethod |
|00000cb0| 73 65 74 2d 76 69 65 77 | 2d 70 6f 73 69 74 69 6f |set-view|-positio|
|00000cc0| 6e 20 3a 61 66 74 65 72 | 20 28 28 77 20 76 69 64 |n :after| ((w vid|
|00000cd0| 65 6f 2d 77 6d 29 20 68 | 20 26 6f 70 74 69 6f 6e |eo-wm) h| &option|
|00000ce0| 61 6c 20 76 29 0d 20 20 | 28 64 65 63 6c 61 72 65 |al v).  |(declare|
|00000cf0| 20 28 69 67 6e 6f 72 65 | 20 68 20 76 29 29 0d 20 | (ignore| h v)). |
|00000d00| 20 28 76 77 2d 63 68 65 | 63 6b 2d 47 44 65 76 69 | (vw-che|ck-GDevi|
|00000d10| 63 65 73 20 77 29 29 0d | 0d 23 7c 0d 2a 2a 62 75 |ces w)).|.#|.**bu|
|00000d20| 67 20 66 69 78 20 65 78 | 70 6c 61 6e 61 74 69 6f |g fix ex|planatio|
|00000d30| 6e 3a 0d 77 69 6e 64 6f | 77 2d 64 72 61 67 2d 65 |n:.windo|w-drag-e|
|00000d40| 76 65 6e 74 2d 68 61 6e | 64 6c 65 72 20 73 65 65 |vent-han|dler see|
|00000d50| 6d 73 20 74 6f 20 64 6f | 20 73 6f 6d 65 74 68 69 |ms to do| somethi|
|00000d60| 6e 67 20 74 6f 20 6d 65 | 73 73 20 75 70 20 74 68 |ng to me|ss up th|
|00000d70| 65 0d 77 69 74 68 2d 66 | 6f 63 75 73 65 64 2d 76 |e.with-f|ocused-v|
|00000d80| 69 65 77 20 6d 65 63 68 | 61 6e 69 73 6d 2e 20 54 |iew mech|anism. T|
|00000d90| 68 69 73 20 68 61 63 6b | 20 66 69 78 65 73 20 74 |his hack| fixes t|
|00000da0| 68 65 20 70 72 6f 62 6c | 65 6d 2e 0d 4d 79 20 67 |he probl|em..My g|
|00000db0| 75 65 73 73 20 69 73 20 | 74 68 61 74 20 69 74 20 |uess is |that it |
|00000dc0| 66 6f 63 75 73 65 73 20 | 6f 6e 20 74 68 65 20 77 |focuses |on the w|
|00000dd0| 69 6e 64 6f 77 2c 20 61 | 6e 64 20 74 68 65 6e 20 |indow, a|nd then |
|00000de0| 64 69 72 65 63 74 6c 79 | 20 63 68 61 6e 67 65 73 |directly| changes|
|00000df0| 0d 74 68 65 20 63 75 72 | 72 65 6e 74 20 70 6f 72 |.the cur|rent por|
|00000e00| 74 20 74 6f 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |t to the| window |
|00000e10| 6d 61 6e 61 67 65 72 20 | 70 6f 72 74 20 2d 20 62 |manager |port - b|
|00000e20| 75 74 20 4d 43 4c 20 73 | 74 69 6c 6c 20 74 68 69 |ut MCL s|till thi|
|00000e30| 6e 6b 73 0d 69 74 27 73 | 20 66 6f 63 75 73 65 64 |nks.it's| focused|
|00000e40| 20 6f 6e 20 74 68 65 20 | 77 69 6e 64 6f 77 2e 20 | on the |window. |
|00000e50| 77 69 74 68 2d 66 6f 63 | 75 73 65 64 2d 76 69 65 |with-foc|used-vie|
|00000e60| 77 20 69 73 20 6f 70 74 | 69 6d 69 7a 65 64 20 6e |w is opt|imized n|
|00000e70| 6f 74 20 74 6f 0d 64 6f | 20 75 6e 6e 65 63 65 73 |ot to.do| unneces|
|00000e80| 73 61 72 79 20 72 65 2d | 66 6f 63 75 73 73 69 6e |sary re-|focussin|
|00000e90| 67 2c 20 73 6f 20 69 74 | 20 67 65 74 73 20 66 6f |g, so it| gets fo|
|00000ea0| 6f 6c 65 64 2e 0d 7c 23 | 0d 0d 0d 3b 3b 3b 3b 3b |oled..|#|...;;;;;|
|00000eb0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ec0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ed0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ee0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ef0| 3b 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 76 77 |;..(defm|ethod vw|
|00000f00| 2d 47 44 65 76 69 63 65 | 20 28 28 77 20 76 69 64 |-GDevice| ((w vid|
|00000f10| 65 6f 2d 77 6d 29 29 0d | 20 20 28 6c 65 74 20 28 |eo-wm)).|  (let (|
|00000f20| 28 64 76 69 65 77 73 20 | 28 73 6c 6f 74 2d 76 61 |(dviews |(slot-va|
|00000f30| 6c 75 65 20 77 20 27 64 | 69 67 69 74 69 7a 65 72 |lue w 'd|igitizer|
|00000f40| 2d 73 75 62 76 69 65 77 | 73 29 29 29 0d 20 20 20 |-subview|s))).   |
|00000f50| 20 28 77 68 65 6e 20 64 | 76 69 65 77 73 0d 20 20 | (when d|views.  |
|00000f60| 20 20 20 20 28 76 64 2d | 47 44 65 76 69 63 65 20 |    (vd-|GDevice |
|00000f70| 28 64 69 67 69 74 69 7a | 65 72 2d 6f 62 6a 65 63 |(digitiz|er-objec|
|00000f80| 74 20 28 66 69 72 73 74 | 20 64 76 69 65 77 73 29 |t (first| dviews)|
|00000f90| 29 29 29 29 29 0d 0d 28 | 64 65 66 6d 65 74 68 6f |)))))..(|defmetho|
|00000fa0| 64 20 76 77 2d 6f 6e 2d | 6c 69 73 74 20 28 28 77 |d vw-on-|list ((w|
|00000fb0| 20 76 69 64 65 6f 2d 77 | 6d 29 29 0d 20 20 28 66 | video-w|m)).  (f|
|00000fc0| 6c 65 74 20 28 28 6f 6e | 2d 70 20 28 76 29 20 28 |let ((on|-p (v) (|
|00000fd0| 77 68 65 6e 20 28 64 69 | 67 69 74 69 7a 69 6e 67 |when (di|gitizing|
|00000fe0| 2d 70 20 76 29 20 28 6c | 69 73 74 20 76 29 29 29 |-p v) (l|ist v)))|
|00000ff0| 29 0d 20 20 20 20 28 64 | 65 63 6c 61 72 65 20 28 |).    (d|eclare (|
|00001000| 64 79 6e 61 6d 69 63 2d | 65 78 74 65 6e 74 20 23 |dynamic-|extent #|
|00001010| 27 6f 6e 2d 70 29 29 0d | 20 20 20 20 28 6d 61 70 |'on-p)).|    (map|
|00001020| 63 61 6e 20 23 27 6f 6e | 2d 70 20 28 73 6c 6f 74 |can #'on|-p (slot|
|00001030| 2d 76 61 6c 75 65 20 77 | 20 27 64 69 67 69 74 69 |-value w| 'digiti|
|00001040| 7a 65 72 2d 73 75 62 76 | 69 65 77 73 29 29 29 29 |zer-subv|iews))))|
|00001050| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 76 77 2d |..(defme|thod vw-|
|00001060| 73 74 6f 70 2d 64 69 67 | 69 74 69 7a 69 6e 67 20 |stop-dig|itizing |
|00001070| 28 28 77 20 76 69 64 65 | 6f 2d 77 6d 29 20 6f 6e |((w vide|o-wm) on|
|00001080| 2d 6c 69 73 74 29 0d 20 | 20 28 64 6f 6c 69 73 74 |-list). | (dolist|
|00001090| 20 28 76 20 6f 6e 2d 6c | 69 73 74 29 20 28 73 74 | (v on-l|ist) (st|
|000010a0| 6f 70 2d 64 69 67 69 74 | 69 7a 69 6e 67 20 76 29 |op-digit|izing v)|
|000010b0| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 76 |))..(def|method v|
|000010c0| 77 2d 73 74 61 72 74 2d | 64 69 67 69 74 69 7a 69 |w-start-|digitizi|
|000010d0| 6e 67 20 28 28 77 20 76 | 69 64 65 6f 2d 77 6d 29 |ng ((w v|ideo-wm)|
|000010e0| 20 6f 6e 2d 6c 69 73 74 | 29 0d 20 20 28 64 6f 6c | on-list|).  (dol|
|000010f0| 69 73 74 20 28 76 20 6f | 6e 2d 6c 69 73 74 29 20 |ist (v o|n-list) |
|00001100| 28 73 74 61 72 74 2d 64 | 69 67 69 74 69 7a 69 6e |(start-d|igitizin|
|00001110| 67 20 76 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |g v)))..|(defmeth|
|00001120| 6f 64 20 76 77 2d 63 68 | 65 63 6b 2d 47 44 65 76 |od vw-ch|eck-GDev|
|00001130| 69 63 65 73 20 28 28 77 | 20 76 69 64 65 6f 2d 77 |ices ((w| video-w|
|00001140| 6d 29 29 0d 20 20 28 6c | 65 74 20 28 28 67 64 20 |m)).  (l|et ((gd |
|00001150| 28 76 77 2d 47 44 65 76 | 69 63 65 20 77 29 29 29 |(vw-GDev|ice w)))|
|00001160| 0d 20 20 20 20 28 77 68 | 65 6e 20 67 64 0d 20 20 |.    (wh|en gd.  |
|00001170| 20 20 20 20 28 77 69 74 | 68 2d 64 65 72 65 66 65 |    (wit|h-derefe|
|00001180| 72 65 6e 63 65 64 2d 68 | 61 6e 64 6c 65 73 20 28 |renced-h|andles (|
|00001190| 28 67 64 5f 70 20 67 64 | 29 29 0d 20 20 20 20 20 |(gd_p gd|)).     |
|000011a0| 20 20 20 28 77 69 74 68 | 2d 6d 61 63 70 74 72 73 |   (with|-macptrs|
|000011b0| 20 28 28 67 64 2d 72 65 | 63 74 20 28 70 72 65 66 | ((gd-re|ct (pref|
|000011c0| 20 67 64 5f 70 20 3a 47 | 44 65 76 69 63 65 2e 67 | gd_p :G|Device.g|
|000011d0| 64 52 65 63 74 29 29 29 | 0d 20 20 20 20 20 20 20 |dRect)))|.       |
|000011e0| 20 20 20 28 64 6f 6c 69 | 73 74 20 28 76 20 28 73 |   (doli|st (v (s|
|000011f0| 6c 6f 74 2d 76 61 6c 75 | 65 20 77 20 27 64 69 67 |lot-valu|e w 'dig|
|00001200| 69 74 69 7a 65 72 2d 73 | 75 62 76 69 65 77 73 29 |itizer-s|ubviews)|
|00001210| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 28 75 |).      |      (u|
|00001220| 6e 6c 65 73 73 20 28 65 | 71 6c 20 67 64 20 28 76 |nless (e|ql gd (v|
|00001230| 64 2d 47 44 65 76 69 63 | 65 20 28 64 69 67 69 74 |d-GDevic|e (digit|
|00001240| 69 7a 65 72 2d 6f 62 6a | 65 63 74 20 76 29 29 29 |izer-obj|ect v)))|
|00001250| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |.       |       (|
|00001260| 65 72 72 6f 72 20 22 64 | 69 67 69 74 69 7a 65 72 |error "d|igitizer|
|00001270| 20 76 69 65 77 73 20 72 | 65 71 75 69 72 69 6e 67 | views r|equiring|
|00001280| 20 64 69 66 66 65 72 65 | 6e 74 20 47 44 65 76 69 | differe|nt GDevi|
|00001290| 63 65 73 20 75 73 65 64 | 20 69 6e 20 74 68 65 20 |ces used| in the |
|000012a0| 73 61 6d 65 20 77 69 6e | 64 6f 77 2e 22 29 29 0d |same win|dow.")).|
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6d 75 6c |        |    (mul|
|000012c0| 74 69 70 6c 65 2d 76 61 | 6c 75 65 2d 62 69 6e 64 |tiple-va|lue-bind|
|000012d0| 20 28 74 6f 70 4c 65 66 | 74 20 62 6f 74 52 69 67 | (topLef|t botRig|
|000012e0| 68 74 29 20 28 76 69 65 | 77 2d 67 6c 6f 62 61 6c |ht) (vie|w-global|
|000012f0| 2d 63 6f 72 6e 65 72 73 | 20 76 29 0d 20 20 20 20 |-corners| v).    |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 28 75 6e 6c 65 73 |        |  (unles|
|00001310| 73 20 28 61 6e 64 20 28 | 23 5f 50 74 49 6e 52 65 |s (and (|#_PtInRe|
|00001320| 63 74 20 74 6f 70 4c 65 | 66 74 20 20 67 64 2d 72 |ct topLe|ft  gd-r|
|00001330| 65 63 74 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ect).   |        |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001350| 28 23 5f 50 74 49 6e 52 | 65 63 74 20 62 6f 74 52 |(#_PtInR|ect botR|
|00001360| 69 67 68 74 20 67 64 2d | 72 65 63 74 29 29 0d 20 |ight gd-|rect)). |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001380| 65 72 72 6f 72 20 22 64 | 69 67 69 74 69 7a 65 72 |error "d|igitizer|
|00001390| 20 76 69 65 77 20 6e 6f | 74 20 6f 6e 20 72 65 71 | view no|t on req|
|000013a0| 75 69 72 65 64 20 47 44 | 65 76 69 63 65 2e 22 29 |uired GD|evice.")|
|000013b0| 29 29 29 29 29 29 29 0d | 20 20 74 29 0d 0d 3b 3b |))))))).|  t)..;;|
|000013c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000013d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000013e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000013f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001400| 3b 3b 3b 3b 0d 23 7c 0d | 61 6e 20 65 78 61 6d 70 |;;;;.#|.|an examp|
|00001410| 6c 65 20 63 61 6e 20 62 | 65 20 66 6f 75 6e 64 20 |le can b|e found |
|00001420| 69 6e 20 76 69 64 65 6f | 2d 65 78 61 6d 70 6c 65 |in video|-example|
|00001430| 2e 6c 69 73 70 0d 7c 23 | 00 00 00 00 00 00 00 00 |.lisp.|#|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001480| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00001490| 67 20 67 72 61 62 2d 6f | 6e 65 2d 66 72 61 6d 65 |g grab-o|ne-frame|
|000014a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 29 29 0d 0d |.       |    ))..|
|000014b0| 0d 76 69 64 65 6f 2d 77 | 6d 2e 6c 69 73 70 02 00 |.video-w|m.lisp..|
|000014c0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000014d0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 a5 28 a4 69 00 00 | 00 00 00 00 01 a0 00 00 |...(.i..|........|
|00001500| 08 00 a4 e9 6f 66 a5 28 | a1 33 00 00 00 00 00 00 |....of.(|.3......|
|00001510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001520| 32 7c 00 0d 00 00 00 00 | 00 00 00 00 29 d9 00 01 |2|......|....)...|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 10 00 00 00 |........|........|
|00001540| 11 af 0a 52 4f 2d 76 64 | 2e 6c 69 73 70 64 02 00 |...RO-vd|.lispd..|
|00001550| 00 00 54 45 58 54 43 43 | 4c 32 01 00 ff ff ff ff |..TEXTCC|L2......|
|00001560| 00 00 00 00 11 b3 00 00 | 00 00 71 bf 00 00 78 00 |........|..q...x.|
|00001570| 00 00 00 00 01 a0 00 00 | 08 00 a4 ea a1 e6 a5 28 |........|.......(|
|00001580| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00001590| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|000015a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015b0| 00 00 00 00 00 06 00 08 | 00 6f 01 8b 03 37 03 bb |........|.o...7..|
|000015c0| 00 6f 01 8b 03 37 03 bb | 00 00 00 00 00 00 0b 63 |.o...7..|.......c|
|000015d0| 00 00 0b 63 00 00 07 be | 01 00 00 00 01 00 00 00 |...c....|........|
|000015e0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d6 4c 08 d2 |.Z...Z..|.F.7.L..|
|000015f0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00001600| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00001610| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 37 ec ec |........|.....7..|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+